Coursera: JHU Developing Data Products- Assignment 3

Shovit Bhari

6/15/2020

Gapminder Data

Here is a link to my Gapminder data Shinyapp.

Sample Code

library(ggplot2);library(gapminder);library(plotly)
lifeexp<-gapminder %>%
        group_by(continent, year) %>%
        filter(continent == 'Oceania') 
g1<- ggplot(lifeexp, aes(x=year, y=lifeExp, color=country)) +
        geom_point(aes(color=country)) +
        geom_smooth(aes(fill= country), method="lm", formula= y~x) +
        xlab("Year") +
        ylab("Life Expectancy (years)")
p1 <- ggplotly(g1)
p1

Sample Plot

Overview of an app

Screenshot of the app with Plot tab selected. Screenshot of the app with Table tab selected.

Gapminder information

Thank you for taking your time to go over my slides.